#!/usr/bin/perl

sub air_tempqc {
  my($station,$myvalue)=@_;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $mon=$mon+1;
  my $qc_level=0;
  

  if($station eq "OCP1"){
    if(($mon==1)||($mon==2)||($mon==3)||($mon==12)||($mon==11)){
       if($myvalue>=-9 && $myvalue<=28){
          $qc_level=3;
       }   
       elsif($myvalue<-9 || $myvalue>28){
          $qc_level=2;
       } 
           
       else {
          $qc_level=0;
       }
    }     
    else{
       if($myvalue>=0 && $myvalue<=33){
          $qc_level=3;
       }   
       elsif($myvalue<0 || $myvalue>33){
          $qc_level=2;
       } 
           
       else {
          $qc_level=0;
       }
    }     
  }

  if($station ne "OCP1"){
    if($mon==1){
       if($myvalue>=-1.5 && $myvalue<=28.85){
          $qc_level=3;
       }   
       elsif($myvalue<-1.5 || $myvalue>28.85){
          $qc_level=2;
       } 
           
       else {
          $qc_level=0;
       }
    }     
    if($mon==2){
       if($myvalue>=-1.78 && $myvalue<=28.57){
          $qc_level=3;
       }   
       elsif($myvalue<-1.78 || $myvalue>28.57){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==3){
       if($myvalue>=-5.7 && $myvalue<=28.56){
          $qc_level=3;
       }   
       elsif($myvalue<-5.7 || $myvalue>28.56){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }  
   if($mon==4){
       if($myvalue>=7.85 && $myvalue<=28.26){
          $qc_level=3;
       }   
       elsif($myvalue<7.85 || $myvalue>28.26){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }
    if($mon==5){
       if($myvalue>=11.19 && $myvalue<=31.2){
          $qc_level=3;
       }   
       elsif($myvalue<11.19 || $myvalue>31.2){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==6){
       if($myvalue>=19.59 && $myvalue<=31.2){
          $qc_level=3;
       }   
       elsif($myvalue<19.59 || $myvalue>31.2){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==7){

       if($myvalue>=21.9 && $myvalue<=30.49){
          $qc_level=3;
       }   
       elsif($myvalue<21.9 || $myvalue>30.49){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==8){
       if($myvalue>=19.59 && $myvalue<=30.68){
          $qc_level=3;
       }   
       elsif($myvalue<19.59 || $myvalue>30.68){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==9){
       if($myvalue>=18.2 && $myvalue<=31.05){
          $qc_level=3;
       }   
       elsif($myvalue<18.2 || $myvalue>31.05){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
    if($mon==10){
       if($myvalue>=1.0 && $myvalue<=31.58){
          $qc_level=3;

       }   
       elsif($myvalue<1.0 || $myvalue>31.58){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
    if($mon==11){
       if($myvalue>=1.02 && $myvalue<=31.69){
     #if($myvalue>=5.02 && $myvalue<=21){
          $qc_level=3;
       }   
       elsif($myvalue<1.02 || $myvalue>31.69){
       #elsif($myvalue<5.02 || $myvalue>21){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
   if($mon==12){
       if($myvalue>=-1.57 && $myvalue<=29.99){
          $qc_level=3;
       }   
       elsif($myvalue<-1.57 || $myvalue>29.99){

          $qc_level=2;

       }     
       else {
          $qc_level=0;
       }
    }   
  }

  if(($station eq "LEJ2")||($station eq "LEJ3")){
     $qc_level=3;
  }

  if($myvalue>42 || $myvalue<-20){
     $qc_level=1;
  }

  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }

  return $qc_level;

}

sub humidity_qc{
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($myvalue>=0 && $myvalue<=100){
          $qc_level=3;
  }   
  elsif($myvalue<0 || $myvalue>100){
          $qc_level=1;
  }     
  else {
          $qc_level=0;
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
  return $qc_level;
}


sub air_pressureqc {
  my($station,$myvalue)=@_;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $mon=$mon+1;
  my $qc_level=0;
  if($station){
  #if($station eq "ILM2" || $station eq "ILM3" || $station eq "OCP1"){
    if($mon==1 || $mon==2){
       if($myvalue>=995.00 && $myvalue<=1040.00){
          $qc_level=3;
       }   
       elsif($myvalue<995.00 || $myvalue>1040.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==3){
       if($myvalue>=995.00 && $myvalue<=1040.00){
          $qc_level=3;
       }   
       elsif($myvalue<995.00 || $myvalue>1040.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }  
   if($mon==4){
       if($myvalue>=993.80 && $myvalue<=1040.00){
          $qc_level=3;
       }   
       elsif($myvalue<993.80 || $myvalue>1040.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }
    if($mon==5 || $mon==6){
       if($myvalue>=1000.00 && $myvalue<=1030.00){
          $qc_level=3;
       }   
       elsif($myvalue<1000.00 || $myvalue>1030.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
   if($mon==7){
       if($myvalue>=1000.00 && $myvalue<=1030.00){
          $qc_level=3;
       }   
       elsif($myvalue<1010.00 || $myvalue>1030.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==8 || $mon==9 || $mon==10){
 
       if(($myvalue>=986.00)&&($myvalue<=1035.00)){
          $qc_level=3;
       }   
       elsif(($myvalue<986.00)||($myvalue>1035.00)){
          
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }  
       #print "***".$qc_level."***";
    }     
   if($mon==11){
       if($myvalue>=987.00 && $myvalue<=1050.00){
          $qc_level=3;
       }   
       elsif($myvalue<987.00 || $myvalue>1050.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
   if($mon==12){
       if($myvalue>=990.00 && $myvalue<=1040.00){
          $qc_level=3;
       }   
       elsif($myvalue<990.00 || $myvalue>1040.00){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    } 
  }

  if(($station eq "LEJ2")||($station eq "LEJ3")){
     $qc_level=3;
  }
  if($myvalue>1200 || $myvalue<800){
     $qc_level=1;
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }  
 return $qc_level;
}



sub wind_speedqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM2")||($station eq 'ILM3')||($station eq 'OCP1')){
       if($myvalue>=0&&$myvalue<=80){
          $qc_level=3;
       }   
       elsif($myvalue<0||$myvalue>80){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }  

  if(($station eq "LEJ2")||($station eq "LEJ3")){
     $qc_level=3;
  }
  if($myvalue>250 || $myvalue<0){
     $qc_level=1;
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  } 
 return $qc_level;
}

sub direction_qc{
  my($station,$myvalue)=@_;
  my $qc_level=0;

       if($myvalue>=0 && $myvalue<=360){
          $qc_level=3;
       }   
       elsif($myvalue<0 || $myvalue>360){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub solar_qc {
  my($station,$myvalue)=@_;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $mon=$mon+1;
  my $qc_level=0;
  #if($hour){
     if($myvalue>=-1){
       $qc_level=3;
     }
     else {
       $qc_level=1;
     }
  #}

  if(($station eq "LEJ2")||($station eq "LEJ3")){
     $qc_level=3;
  } 

  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}


sub surfacewater_tempqc {
  my($station,$myvalue)=@_;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $mon=$mon+1;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM3")||($station eq "ILM2")){
    if($mon==1){
       if($myvalue>=6.1 && $myvalue<=25.77){
          $qc_level=3;
       }   
       elsif($myvalue<6.1 || $myvalue>25.77){
          $qc_level=2;
       } 
       else {
          $qc_level=0;
       }
    }     
    if($mon==2){
       if($myvalue>=4.1 && $myvalue<=23.29){
          $qc_level=3;
       }   
       elsif($myvalue<4.1 || $myvalue>23.29){
          $qc_level=2;
       }
       else {
          $qc_level=0;
       }
    }     
    if($mon==3){
       if($myvalue>=10.01 && $myvalue<=23.48){
          $qc_level=3;
       }   
       elsif($myvalue<10.01 && $myvalue>23.48){
          $qc_level=2;
       } 
  
       else {
          $qc_level=0;
       }
    }  
   if($mon==4){
       if($myvalue>=12.19 && $myvalue<=23.53){
          $qc_level=3;
       }   
       elsif($myvalue<12.19 || $myvalue>23.53){
          $qc_level=2;
       } 
   
       else {
          $qc_level=0;
       }
    }
    if($mon==5){
       if($myvalue>=15.39 && $myvalue<=28.70){
          $qc_level=3;
       }   
       elsif($myvalue<15.39 || $myvalue>28.70){
          $qc_level=2;
       } 
 
       else {
          $qc_level=0;
       }
    }     
    if($mon==6){
       if($myvalue>=20.37 && $myvalue<=29.73){
          $qc_level=3;
       }   
       elsif($myvalue<20.37 || $myvalue>29.73){
          $qc_level=2;
          if($station eq "OCP1"){
              if($myvalue<31 && $myvalue>29){
                 $qc_level=3;}
       
          }
       }     
       else {
          $qc_level=0;
       }
    }    
    if($mon==7){
       if($myvalue>=23.88 && $myvalue<=31.37){
          $qc_level=3;
       }   
       elsif($myvalue<23.88 || $myvalue>31.37){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==8){
       if($myvalue>=24.09 && $myvalue<=31.99){
          $qc_level=3;
       }   
       elsif($myvalue<24.09 || $myvalue>31.99){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==9){
       if($myvalue>=24&& $myvalue<=29.58){
          $qc_level=3;
       }   
       elsif($myvalue<24 || $myvalue>29.58){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
    if($mon==10){
       if($myvalue>=18.0 && $myvalue<=29.27){
          $qc_level=3;
       }   
       elsif($myvalue<18.0 || $myvalue>29.27){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
    if($mon==11){
       if($myvalue>=13.5 && $myvalue<=27.37){
          $qc_level=3;
       }   
       elsif($myvalue<13.5 || $myvalue>27.37){
          $qc_level=2;
       }    
       else {
          $qc_level=0;
       }
    }   
   if($mon==12){
       if($myvalue>=12.05 && $myvalue<=27.28){
          $qc_level=3;
       }   
       elsif($myvalue<12.05 || $myvalue>27.28){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
  }

  if($myvalue>32 || $myvalue<-3){
          $qc_level=1;
  } 
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }

  return $qc_level;

}

sub surfacewater_pressureqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
  if($myvalue>5){$qc_level=1;}
  return $qc_level;
}

sub surfacewater_salinityqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station){  
#if(($station eq "ILM3")||($station eq "ILM2")||($station eq "LEJ3")||($station eq "LEJ2")){
    if($myvalue>=31 && $myvalue<=37){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue>=40 || $myvalue<=10){
        $qc_level=1;
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }

  return $qc_level;
}

sub surfacecurrent_speedqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;

  if($station eq "ILM2"){
    if($myvalue>=0 && $myvalue<=50){
       $qc_level=3;
    }
    else {
       $qc_level=2;
    }
  }
  else{
    if($myvalue>=0 && $myvalue<=80){
       $qc_level=3;
    }
    else {
       $qc_level=2;
    }
  }
  if($myvalue<0){
    $qc_level=-1;
  }

  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub bottomwater_pressureqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;

  if($station eq "ILM2"){
    if($myvalue>=15 && $myvalue<=19){
       $qc_level=3; 
    }
    else {
       $qc_level=2;
    }
  }
  if($station eq "ILM3"){
    if($myvalue>=26 && $myvalue<=32){
       $qc_level=3;
    }
    else {
       $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}


sub bottomwater_tempqc {
  my($station,$myvalue)=@_;
  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $mon=$mon+1;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM2") || ($station eq "ILM3") || ($station eq "OCP1") || ($station eq "ILM1")){
    if($mon==1){
       if($myvalue>=7.00 && $myvalue<=20.65){
          $qc_level=3;
       }   
       elsif($myvalue<7.00 || $myvalue>20.65){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==2){
       if($myvalue>=7.5 && $myvalue<=18.42){
          $qc_level=3;
       }   
       elsif($myvalue<7.5 || $myvalue>18.42){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==3){
       if($myvalue>=8.49 && $myvalue<=20.88){
          $qc_level=3;
       }   
       elsif($myvalue<8.49 || $myvalue>20.88){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }  
   if($mon==4){
       if($myvalue>=12.34 && $myvalue<=24.86){
          $qc_level=3;
       }   
       elsif($myvalue<12.34 || $myvalue>24.86){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }
    if($mon==5){
       if($myvalue>=17.25 && $myvalue<=25.68){
          $qc_level=3;
       }   
       elsif($myvalue<17.25 || $myvalue>25.68){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==6){
       if($myvalue>=18.08 && $myvalue<=28.76){
          $qc_level=3;
       }   
       elsif($myvalue<18.08 || $myvalue>28.76){
          $qc_level=2;
          if($station eq "OCP1"){
            if($myvalue<31 && $myvalue>28.6){

            $qc_level=3;}

          }
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==7){
       if($myvalue>=15.81 && $myvalue<=31.55){
          $qc_level=3;
       }   
       elsif($myvalue<15.81 || $myvalue>31.55){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==8){
       if($myvalue>=13.46 && $myvalue<=34.18){
          $qc_level=3;
       }   
       elsif($myvalue<13.46 || $myvalue>34.18){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }     
    if($mon==9){
       if($myvalue>=21.38 && $myvalue<=30.23){
          $qc_level=3;
       }   
       elsif($myvalue<21.38 || $myvalue>30.23){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
    if($mon==10){
       if($myvalue>=18 && $myvalue<=27.70){
          $qc_level=3;
       }   
       elsif($myvalue<18 || $myvalue>27.70){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
    if($mon==11){
       my $min=15.27;
       my $max=28.40;
       if($station eq "OCP1"){
            $min>=8;
       }

       if($myvalue>=$min && $myvalue<=$max){
          $qc_level=3;
       }   
       elsif($myvalue<$min || $myvalue>$max){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
   if($mon==12){
       if($myvalue>=9.48 && $myvalue<=25.42){
          $qc_level=3;
       }   
       elsif($myvalue<9.48 || $myvalue>25.42){
          $qc_level=2;
       }     
       else {
          $qc_level=0;
       }
    }   
  }
  if($myvalue>=40 || $myvalue<=-3){
          $qc_level=1;
  } 
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
  
  return $qc_level;

}

sub bottomwater_salinityqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM2") || ($station eq "ILM3") || ($station eq "ILM1")){
    if($myvalue>=33 && $myvalue<=37){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($station eq "OCP1") {
    if($myvalue>=27 && $myvalue<=37){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if(($myvalue>150)||($myvalue<0)){
     $qc_level=1; 
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }

 return $qc_level;
}

sub bottomwater_conductivityqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station ne "OCP1"){
  #if(($station eq "ILM2") || ($station eq "ILM3") || ($station eq "ILM1")){
    if($myvalue>=4 && $myvalue<=6){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($station eq "OCP1"){
    if($myvalue>=3.5 && $myvalue<=6.1){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if(($myvalue>10)||($myvalue<1)){
     $qc_level=1; 
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub surfacewater_conductivityqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM2") || ($station eq "ILM3") || ($station eq "ILM1") || ($station eq "LEJ2") || ($station eq "LEJ3")){
    if($myvalue>=3.3 && $myvalue<=6.5){
        $qc_level=3;
        if($myvalue>5.98){$qc_level=2;}
    }
    else {
       
        $qc_level=1;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub surfacewater_chlorophyllqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM2") || ($station eq "ILM3") || ($station eq "ILM1") || ($station eq "LEJ3") || ($station eq "LEJ2")){
    if(($myvalue>0.01)&&($myvalue<80)){
        $qc_level=3;
        if($myvalue<0.1||$myvalue>15){
           $qc_level=2;
        }
    }
    else {
        $qc_level=1;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub bottomwater_chlorophyllqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station){
  #if(($station eq "ILM2") || ($station eq "ILM3") || ($station eq "ILM1")){
    if(($myvalue>0)&&($myvalue<500)){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub surfacewater_turbidityqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if(($station eq "LEJ2") || ($station eq "LEJ3") ){
    if($myvalue>0){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub surfacewater_phqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if(($station eq "LEJ2") || ($station eq "LEJ3") ){
    if($myvalue>0){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub surfacewater_redoxqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if(($station eq "LEJ2") || ($station eq "LEJ3") ){
    if($myvalue>0){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

sub surfacewater_oxygenqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if(($station eq "LEJ2") || ($station eq "LEJ3") ){
    if($myvalue>0){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}


sub water_depthqc {
  my($station,$myvalue)=@_;
  my $qc_level=0;
  if($station eq "OCP1") {
    if(($myvalue<=9500)&&($myvalue>=5000)){
        $qc_level=3;
    }
    else {
        $qc_level=2;
    }
  }
  if($myvalue eq "NODATA"){
     $qc_level=-9; 
  }
  if($myvalue eq ""){
     $qc_level=-9; 
  }
  if($myvalue eq "NULL"){
     $qc_level=-9; 
  }
 return $qc_level;
}

1;

